home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 196 / 196.d81 / zip startup makr (.txt) < prev   
Commodore BASIC  |  2022-08-26  |  426b  |  15 lines
  1. 1 rem * zip basic startup file maker *
  2. 2 rem * rasta's cleaver *
  3. 10 f$(1)="obj.startup file"
  4. 20 f$(2)="blockhead.ml"
  5. 30 f$(3)="block 1.f-keys"
  6. 40 f$(4)="startup file.zml"
  7. 50 dv=8:fl$="startup.ml"
  8. 100 ad=49152:hb=int(ad/256):lb=ad-hb*256:ll=lb:hh=hb
  9. 110 for i=1 to 4
  10. 120 sys 57812 f$(i),dv,0:poke 780,0:poke 781,lb:poke 782,hb:sys 65493
  11. 130 lb=peek(174):hb=peek(175)
  12. 150 next
  13. 200 sys 57812 fl$,dv,1:poke 193,ll:poke 194,hh
  14. 210 poke 174,lb:poke 175,hb:sys 62957
  15.